Introduction to Nuclear Programming 


Midterm 2 


21F Midterm 2 


Jeongbin Kim 
June 6, 2024 


Question 1. (30 points) Write code main01.£90, which works as below: 


e Construct subrotine XOR(i1,i2,i13) and i1, i2 and i3 are 8-byte integers. 


e il, i2 are inputs. Set the bit of i3 to 0 if the corresponding bit of i1 and i2 are the same and 1 if 


they are different. 
For example, 


it ;O/;1/0;/0]1)1)]0/) 1 
i2;1/;1);0)]1;]0;1;0/0 
i3)1;);0)/0/;1)1);/0);0) 1 


e Check that when i1=77 and i2=212, i3 is evaluated as 153. 


e Leave the check process in the code. 


My answer: 


! 2024.2.24. Jeongbin kim 
! N.E. Engineering Programming midterm2 (Fall 2021) 
! Problem 1, ver2 


module bin_dec_conv_module 
implicit none 

contains 

! deciaml to binary 


subroutine dec_to_bin(dec, bin) 
implicit none 
integer, parameter i8 = 


starting 
integer(i8), intent (in) 
integer, intent(out), 
integer (i8) local_dec 

! maybe i can put intent (inout) 


I in dec to nob set a Local _deoc?? 


integer i 2 
local_dec = dec 
do i = 1, 8 
if (mod(local_dec ,2) 
bin(9-i) = 0 


selected_int_kind (8) 


dec 


dimension (1:8) 


else 
bin(9-i) = 1 
endif 
local_dec = local_dec/2 
enddo 


end subroutine dec_to_bin 


! binary to decimal 


bin 


<- nope, 


== 0 ) then 


selected_int_kind (8) 


subroutine bin_to_dec(bin, dec) 
implicit none 
integer, parameter i8 = 
integer, intent (in), 


dimension (1:8) 


bin 


<- you can put this at the 


of the module (Global Variable) 


this causes error: 


35 integer, intent(out) :: dec 


36 integer :: i 

37 

38 do i= 1, 3 

39 dec = dec + bin(i) * ( 2**(8-i) ) 

40 enddo 

41 end subroutine bin_to_dec 

42 end module bin_dec_conv_module 

43 

44 module xor_module 

45 use bin_dec_conv_module 

46 implicit none 

47 integer, parameter :: i8 = selected_int_kind (8) 
48 contains 

49 subroutine XOR(ii, i2, i3) 

50 implicit none 

5l integer, parameter :: i8 = selected_int_kind (8) 
52 integer (i8), intent (in) se aile 9 

53 integer(i8), intent Cout) :: i3 

54 ! local variables 

55 integer :: i 

56 integer, dimension(8) :: bin_il, bin_i2, bin_i3 
57 

58 call dec_to_bin(ii, bin_ii) 

59 call dec_to_bin(i2, bin_i2) 

60 ! XOR implementation 

61 donni Es aly te} 

62 if (bin_il(i) /= bin_i2(i)) then 

63 aaa ais) (Cab) Gl 

64 else 

65 bin_i3(i) = 0 

66 endif 

67 enddo 

68 

69 call bin_to_dec(bin_i3, i3) 

70 end subroutine XOR 

71 end module xor_module 

72 

73 program main 

74 use xor_module 

75 implicit none 

76 

ae integer(1i8) nk il; 127 i3 

78 integer, dimension(1:8) :: bin_il, bin_i2, bin_i3 
79 

80 print +) input for i 

81 read *, il 

82 print +, input for ale 

83 read *, i2 

84 print *, “Your input for ai: “if; “a2: ™, i2 

85 call dec to Bin iih bin_ii) 

86 call dec_to_bin(i2, bin_i2) 

87 

88 prine ACA M ayo) e binary Conversion of Æ wed ln Ss u bin i EES) 
89 prine AON, a Gi, Sai binary Conversion of Wake ise A bin ober (E 3) 
90 print *, "calling subroutine XORA 

91 call KORCS al@) sis) 

92 print *, “as as ", i3 

93 call dec_to_bin(i3, bin_i3) 

94 

95 print ON, als UN alas binary Conversion Youre Wi abe} UP sige Wy bin iS) 


96 end program main 


Question 2. Write code main02.f£90, which works as below: 


e Create point module that contains two coordinate values of x and y. 
e Create triangle module that contains three point module in it. 


e Create a function called area in a triangle module and write a function that returns the area of a 
triangle formed by three points. 
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e When there are two triangle modules a and b, if you do atb, add the area of the two triangles a, b 


and return them. 


e As for the coordinates of one triangle in the code, set the three points as (1,1) (4,1) (1,5) and check 


that the area comes out to be 6. triangle t1 


e As for the coordinates of one triangle in the code, set the three points as (0,0) (1,0) (0.5,0.866) and 
check the area comes out to be approximately 0.433. triangle t2 


e check that the result of (t1+t2) is approximately 6.433. 
e Leave the check process in the code. 


My answer: 


! 2024.5.26. Jeongbin Kim 
! N.E. Engineering Programming midterm5 (Fall 2021) 
! Problem 2, Calculation of area when 3 point is given, 


module point_module 
implicit none 


type point 
real xy ¥ 
end type point 
end module point_module 


module triangle_module 
use point_module 
implicit none 


type triangle 
type (point) 
end type triangle 


an ls. 


! interface operator (+) 
! module procedure sum_area 
! end interface operator (+) 


contains 
real function area(t) result (triangle_area) 
implicit none 
type(triangle), intent(in) :: t 
triangle_area = 
D 2 
end function area 
! real function sum_area(ti, t2)T 
! type(triangle), intent (in) 
end module triangle_module 


t1, t2 


program main 
use triangle_module 
implicit none 


type (triangle) 
real area_ti, 
integer input 


tcl, t2 
area_t2 


print *, 
print *, 


"Type > 1 
"Type 2 2 2 


>to select automated procedure", 
to select manual procedure", 


read(*,*) input 


if (input == 1) then 
T/A = 
ti%Ahy 
t1%B%x = 
t1%B%y = 
wil = 
t1%Chy = 


1 
orre prer 
OOGO OGTT 


using user-derived types. 


0.5*( thALx*(tZBhy-thChy) + thBAx*(thChy-thahy) + thChx*(thahy-thBhy 


achar CLOT “Or.” 


achar (10) 


58 t2%A%x = 0 

59 t2%A%y = 0 

60 t2 BA = 110 

61 t27%Bhy = 0 

62 0270/2 S Wa 

63 t27Chy = 0.866 

64 area_t1i = area(t1) 

65 area_t2 = area(t2) 

66 print *, "area of ti is: ", area ti 
67 print *, "area of t2 is: ", area_t2 
68 print *, "Addition of these 2 areas equals to: ", area_ti + area_t2 
69 else if (input == 2) then 

70 print +, “For triangle ti: ' 

71 print *, “For point A, input x and y: 
T2 read *, t1%A%x, t1%A%y 

73 printis hors point Bi inputi x andi ys 
74 read *, ti%Bhx, ti%Bhy 

75 prints + hon point Cy nputl «and sy 
76 read *, ti%Chx, ti%Chy 

(wa 

78 area_t1 = area(t1) 

79 print *, “area of tl is: ", area ti 
80 

81 print +5) Thor triangle t2 

82 printi hor pointi Anput andiya 
83 read *, t2%A%x, t2%A%y 

84 print +, "For point B, input z and yi 
85 read *, t2⁄%⁄B⁄%x, t2%B%y 

86 prints HOT point O inputi x andi yi 
87 read *, t2%C%x, t2⁄%C%y 

88 

89 area_t2 = area(t2) 

90 print *, “area of t2 is: ", area_t2 
91 

92 print *, "adding areas of 2 triangles :", area ti + area_t2 
93 else 

94 print *, "Wrong input!", achar(10), "Terminating program." 
95 endif 

96 


97 end program main 


Question 3. Write the code main03.f90 as following: 


e Construct a subroutine PrintBinary(i1) to console out binary representation of integer i1 in decimal 
representation where i1 is a 32-byte integer using recursion call. Do not use loop. The procedure is 
explained as below: 


PrintBinary (13) 
PrintBinary (6) 
PrintBinary (3) 
PrintBinary (1) 
Console out 1 
Console out 0 
Console out 1 
Console out 1 


OANoowhwne 


e Therefore, the final result have to be 1101. 
e Check that the result of (PrintBinary(13)) is 1011 and (PrintBinary(213)) is 11010101. 
e Leave the check process in the code. 


My answer: 


1202472725. Jeongban Kim 
! N.E. Engineering Programming midterm5 (Fall 2021) 
! Problem 3, Conversion of decimal point to binary using recursive subroutine 


program main 
implicit none 


aOowrwnre 


31 
32 


integer, parameter :: int8 = selected_int_kind(8) 


integer(int8) :: il 
print *, “input number " 
read *, il 

call PrintBinary (i1) 


contains 
recursive subroutine PrintBinary(i1) 
implicit none 
integer(int8), intent(in) :: il 
integer :: il_local 


il_local = il 

if ( mod(ii_local, 2) == 0 .and. 
it_local = iit_local / 2 
call PrintBinary(ii_local) 
print +, 0” 

else if ( mod(ii_local ,2) == 1 
iit_local = ii_local / 2 
call PrintBinary(ii_local) 
print +, “1” 

endif 

end subroutine PrintBinary 


end program main 


it_local /= 


and. 


il_local /= 


0) then 


0) then 


